home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / main.dxr / 00005_Zoom Start script.ls < prev    next >
Encoding:
Text File  |  1996-10-02  |  639 b   |  28 lines
  1. on exitFrame
  2.   global gStartClick
  3.   if gStartClick <> 0 then
  4.     set gStartClick to 0
  5.     if soundBusy(1) then
  6.       sound stop 1
  7.     end if
  8.     if soundBusy(2) then
  9.       sound stop 2
  10.     end if
  11.     puppetSound(0)
  12.     repeat with j = 1 to 48
  13.       if the puppet of sprite j <> 1 then
  14.         set the puppet of sprite j to 1
  15.       end if
  16.       if the visible of sprite j <> 1 then
  17.         set the visible of sprite j to 1
  18.       end if
  19.       set the puppet of sprite j to 0
  20.     end repeat
  21.     unLoad()
  22.     preloadMember("CanFly")
  23.     preLoad(label("Start Zoom"), label("End Zoom"))
  24.     startTimer()
  25.     go(label("Start Zoom"))
  26.   end if
  27. end
  28.